home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / shareware / applications / jcgraph / rexx / loadwindowposdefault.rex < prev    next >
OS/2 REXX Batch file  |  1994-11-17  |  2KB  |  54 lines
  1. /* LoadWindowPosDefault.rex */
  2. /* ------------------------ */
  3. /* Description: This scripts loads values stored in the file            */
  4. /*              'JcGraph:Rexx/WinDflt' that represents JcGraph window's */
  5. /*              size and position. The default file is created using    */
  6. /*              SaveWindowPosDefault.rex script.                        */
  7.  
  8. options results
  9.  
  10. address 'JCGRAPH'
  11.  
  12. if open('WinDflt','JcGraph:Rexx/WinDflt','R') then do
  13.  
  14.   'ActivateWindow Output'
  15.   here=readln('WinDflt')
  16.   SpcPos = pos(" ",here)
  17.   MyX = left(here,SpcPos - 1)
  18.   MyY = substr(here,SpcPos + 1)
  19.   'MoveWindow LeftEdge=' || MyX 'TopEdge=' || MyY
  20.  
  21.   here=readln('WinDflt')
  22.   SpcPos = pos(" ",here)
  23.   MyX = left(here,SpcPos - 1)
  24.   MyY = substr(here,SpcPos + 1)
  25.   'SizeWindow Width=' || MyX 'Height=' || MyY
  26.  
  27.   'ActivateWindow Preview'
  28.   here=readln('WinDflt')
  29.   SpcPos = pos(" ",here)
  30.   MyX = left(here,SpcPos - 1)
  31.   MyY = substr(here,SpcPos + 1)
  32.   'MoveWindow LeftEdge=' || MyX 'TopEdge=' || MyY
  33.  
  34.   here=readln('WinDflt')
  35.   SpcPos = pos(" ",here)
  36.   MyX = left(here,SpcPos - 1)
  37.   MyY = substr(here,SpcPos + 1)
  38.   'SizeWindow Width=' || MyX 'Height=' || MyY
  39.  
  40.   'ActivateWindow Interface'
  41.   here=readln('WinDflt')
  42.   SpcPos = pos(" ",here)
  43.   MyX = left(here,SpcPos - 1)
  44.   MyY = substr(here,SpcPos + 1)
  45.   'MoveWindow LeftEdge=' || MyX 'TopEdge=' || MyY
  46.  
  47.   here=readln('WinDflt')
  48.   SpcPos = pos(" ",here)
  49.   MyX = left(here,SpcPos - 1)
  50.   MyY = substr(here,SpcPos + 1)
  51.   'SizeWindow Width=' || MyX 'Height=' || MyY
  52.  
  53. end
  54.